home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / gs_cff.ps < prev    next >
Text File  |  1997-04-11  |  18KB  |  578 lines
  1. %    Copyright (C) 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Loader for CFF (compressed) fonts.
  19. % The following are not implemented yet:
  20. %    Deleted entries in the Name Index
  21. %    Embedded PostScript
  22. %    Multiple Master fonts
  23. %    CIDFonts
  24. %    Chameleon fonts
  25. %    Non-standard Encodings
  26. %    Synthetic fonts
  27. % Also, Type 2 charstrings are converted into Type 1 fonts with
  28. % CharstringType = 2, which may or may not be supported.
  29.  
  30. 30 dict begin
  31.  
  32. % ---------------- Standard strings (actually names) ---------------- %
  33.  
  34. /StandardStrings mark
  35. % 0
  36.   /.notdef /space /exclam /quotedbl /numbersign
  37.   /dollar /percent /ampersand /quoteright /parenleft
  38.   /parenright /asterisk /plus /comma /hyphen
  39.   /period /slash /zero /one /two
  40.   /three /four /five /six /seven
  41.   /eight /nine /colon /semicolon /less
  42.   /equal /greater /question /at /A
  43.   /B /C /D /E /F
  44.   /G /H /I /J /K
  45.   /L /M /N /O /P
  46. % 50
  47.   /Q /R /S /T /U
  48.   /V /W /X /Y /Z
  49.   /bracketleft /backslash /bracketright /asciicircum /underscore
  50.   /quoteleft /a /b /c /d
  51.   /e /f /g /h /i
  52.   /j /k /l /m /n
  53.   /o /p /q /r /s
  54.   /t /u /v /w /x
  55.   /y /z /braceleft /bar /braceright
  56.   /asciitilde /exclamdown /cent /sterling /fraction
  57. % 100
  58.   /yen /florin /section /currency /quotesingle
  59.   /quotedblleft /guillemotleft /guilsinglleft /guilsinglright /fi
  60.   /fl /endash /dagger /daggerdbl /periodcentered
  61.   /paragraph /bullet /quotesinglbase /quotedblbase /quotedblright
  62.   /guillemotright /ellipsis /perthousand /questiondown /grave
  63.   /acute /circumflex /tilde /macron /breve
  64.   /dotaccent /dieresis /ring /cedilla /hungarumlaut
  65.   /ogonek /caron /emdash /AE /ordfeminine
  66.   /Lslash /Oslash /OE /ordmasculine /ae
  67.   /dotlessi /lslash /oslash /oe /germandbls
  68. % 150
  69.   /onesuperior /logicalnot /mu /trademark /Eth
  70.   /onehalf /plusminus /Thorn /onequarter /divide
  71.   /brokenbar /degree /thorn /threequarters /twosuperior
  72.   /registered /minus /eth /multiply /threesuperior
  73.   /copyright /Aacute /Acircumflex /Adieresis /Agrave
  74.   /Aring /Atilde /Ccedilla /Eacute /Ecircumflex
  75.   /Edieresis /Egrave /Iacute /Icircumflex /Idieresis
  76.   /Igrave /Ntilde /Oacute /Ocircumflex /Odieresis
  77.   /Ograve /Otilde /Scaron /Uacute /Ucircumflex
  78.   /Udieresis /Ugrave /Yacute /Ydieresis /Zcaron
  79. % 200
  80.   /aacute /acircumflex /adieresis /agrave /aring
  81.   /atilde /ccedilla /eacute /ecircumflex /edieresis
  82.   /egrave /iacute /icircumflex /idieresis /igrave
  83.   /ntilde /oacute /ocircumflex /odieresis /ograve
  84.   /otilde /scaron /uacute /ucircumflex /udieresis
  85.   /ugrave /yacute /ydieresis /zcaron /exclamsmall
  86.   /Hungarumlautsmall /dollaroldstyle /dollarsuperior /ampersandsmall /Acutesmall
  87.   /parenleftsuperior /parenrightsuperior /twodotenleader /onedotenleader /zerooldstyle
  88.   /oneoldstyle /twooldstyle /threeoldstyle /fouroldstyle /fiveoldstyle
  89.   /sixoldstyle /sevenoldstyle /eightoldstyle /nineoldstyle /commasuperior
  90. % 250
  91.   /threequartersemdash /periodsuperior /questionsmall /asuperior /bsuperior
  92.   /centsuperior /dsuperior /esuperior /isuperior /lsuperior
  93.   /msuperior /nsuperior /osuperior /rsuperior /ssuperior
  94.   /tsuperior /ff /ffi /ffl /parenleftinferior
  95.   /parenrightinferior /Circumflexsmall /hyphensuperior /Gravesmall /Asmall
  96.   /Bsmall /Csmall /Dsmall /Esmall /Fsmall
  97.   /Gsmall /Hsmall /Ismall /Jsmall /Ksmall
  98.   /Lsmall /Msmall /Nsmall /Osmall /Psmall
  99.   /Qsmall /Rsmall /Ssmall /Tsmall /Usmall
  100.   /Vsmall /Wsmall /Xsmall /Ysmall /Zsmall
  101. % 300
  102.   /colonmonetary /onefitted /rupiah /Tildesmall /exclamdownsmall
  103.   /centoldstyle /Lslashsmall /Scaronsmall /Zcaronsmall /Dieresissmall
  104.   /Brevesmall /Caronsmall /Dotaccentsmall /Macronsmall /figuredash
  105.   /hypheninferior /Ogoneksmall /Ringsmall /Cedillasmall /questiondownsmall
  106.   /oneeighth /threeeighths /fiveeighths /seveneighths /onethird
  107.   /twothirds /zerosuperior /foursuperior /fivesuperior /sixsuperior
  108.   /sevensuperior /eightsuperior /ninesuperior /zeroinferior /oneinferior
  109.   /twoinferior /threeinferior /fourinferior /fiveinferior /sixinferior
  110.   /seveninferior /eightinferior /nineinferior /centinferior /dollarinferior
  111.   /periodinferior /commainferior /Agravesmall /Aacutesmall /Acircumflexsmall
  112. % 350
  113.   /Atildesmall /Adieresissmall /Aringsmall /AEsmall /Ccedillasmall
  114.   /Egravesmall /Eacutesmall /Ecircumflexsmall /Edieresissmall /Igravesmall
  115.   /Iacutesmall /Icircumflexsmall /Idieresissmall /Ethsmall /Ntildesmall
  116.   /Ogravesmall /Oacutesmall /Ocircumflexsmall /Otildesmall /Odieresissmall
  117.   /OEsmall /Oslashsmall /Ugravesmall /Uacutesmall /Ucircumflexsmall
  118.   /Udieresissmall /Yacutesmall /Thornsmall /Ydieresissmall (001.000)
  119.   (001.001) (001.002) (001.003) /Black /Bold
  120.   /Book /Light /Medium /Regular /Roman
  121.   /Semibold
  122. .packtomark def
  123.  
  124. % ---------------- Standard encodings ---------------- %
  125.  
  126. /StandardEncodings [
  127.  
  128. % StandardEncoding
  129. mark
  130.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  131.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  132.   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  133.   17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
  134.   33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
  135.   49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
  136.   65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
  137.   81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 0
  138.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  139.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  140.   0 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
  141.   0 111 112 113 114 0 115 116 117 118 119 120 121 122 0 123
  142.   0 124 125 126 127 128 129 130 131 0 132 133 0 134 135 136
  143.   137 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  144.   0 138 0 139 0 0 0 0 140 141 142 143 0 0 0 0
  145.   0 144 0 0 0 145 0 0 146 147 148 149 0 0 0 0
  146. .packtomark
  147.  
  148. % ExpertEncoding
  149. mark
  150.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  151.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  152.   1 229 230 0 231 232 233 234 235 236 237 238 13 14 15 99
  153.   239 240 241 242 243 244 245 246 247 248 27 28 249 250 251 252
  154.   0 253 254 255 256 257 0 0 0 258 0 0 259 260 261 262
  155.   0 0 263 264 265 0 266 109 110 267 268 269 0 270 271 272
  156.   273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
  157.   289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 0
  158.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  159.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  160.   0 304 305 306 0 0 307 308 309 310 311 0 312 0 0 313
  161.   0 0 314 315 0 0 316 317 318 0 0 0 158 155 163 319
  162.   320 321 322 323 324 325 0 0 326 150 164 169 327 328 329 330
  163.   331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346
  164.   347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362
  165.   363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
  166. .packtomark
  167.  
  168. ] readonly def
  169.  
  170. % ---------------- Standard Charsets ---------------- %
  171.  
  172. % We include an explicit 0 at the beginning of each charset.
  173.  
  174. /StandardCharsets [
  175.  
  176. % ISOAdobe
  177. mark
  178.   0
  179.   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  180.   17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
  181.   33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
  182.   49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
  183.   65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
  184.   81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
  185.   97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112
  186.   113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128
  187.   129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
  188.   145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160
  189.   161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176
  190.   177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192
  191.   193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208
  192.   209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224
  193.   225 226 227 228
  194. .packtomark
  195.  
  196. % Expert
  197. mark
  198.   0
  199.   1 229 230 231 232 233 234 235 236 237 238 13 14 15 99 239
  200.   240 241 242 243 244 245 246 247 248 27 28 249 250 251 252 253
  201.   254 255 256 257 258 259 260 261 262 263 264 265 266 109 110 267
  202.   268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
  203.   284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299
  204.   300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315
  205.   316 317 318 158 155 163 319 320 321 322 323 324 325 326 150 164
  206.   169 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
  207.   342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357
  208.   358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373
  209.   374 375 376 377 378
  210. .packtomark
  211.  
  212. % ExpertSubset
  213. mark
  214.   0
  215.   1 231 232 235 236 237 238 13 14 15 99 239 240 241 242 243
  216.   244 245 246 247 248 27 28 249 250 251 253 254 255 256 257 258
  217.   259 260 261 262 263 264 265 266 109 110 267 268 269 270 272 300
  218.   301 302 305 314 315 158 155 163 320 321 322 323 324 325 326 150
  219.   164 169 327 328 329 330 331 332 333 334 335 336 337 338 339 340
  220.   341 342 343 344 345 346
  221. .packtomark
  222.  
  223. ] readonly def
  224.  
  225. % ---------------- Font loading ---------------- %
  226.  
  227. % ------ Utilities ------ %
  228.  
  229. /advance {    % <n> advance -
  230.   f cff eq { /pos pos 3 -1 roll add store } { pop } ifelse
  231. } def
  232. /next {        % - next <byte>
  233.   f read { 1 advance } if
  234. } def
  235. /nextstring {    % <length> nextstring <string>
  236.   string f exch readstring pop dup length advance
  237. } def
  238. /card8        % - card8 <card8>
  239.  /next load
  240. def
  241. /card16 {    % - card16 <card16>
  242.   card8 8 bitshift card8 add
  243. } def
  244. /offset {    % <offsize> offset <offset>
  245.   0 exch { 8 bitshift next add } repeat
  246. } def
  247. /sid        % - <sid> sid
  248.   /card16 load
  249. def
  250. /Index {    % - Index <array>
  251.   mark card16 dup 0 ne {
  252.     1 exch next dup offset pop exch {
  253.       dup offset dup 4 -1 roll sub 3 1 roll exch
  254.     } repeat pop
  255.   } if pop .packtomark
  256.   [ exch { nextstring } forall ] readonly
  257. } def
  258. /tokens {    % - tokens <num1> ... <op#> (op# = 12 means EOF)
  259.   {
  260.     f read not { 12 exit } if
  261.     1 advance
  262.     dup 12 eq { next 32 add exit } if
  263.     dup 28 lt { exit } if
  264.     dup 32 lt {
  265.       28 sub {
  266.     { card16 32768 xor 32768 sub }
  267.     { 4 offset dup 16#7fffffff gt { -1 32 bitshift add } if }
  268.     { tokenreal }
  269.     { 31 exit }
  270.       } exch get exec
  271.     } {
  272.       dup 247 lt {
  273.     139 sub
  274.       } {
  275.     247 sub {
  276.       { next 108 add }
  277.       { next 364 add }
  278.       { next 620 add }
  279.       { next 876 add }
  280.       { next 108 add neg }
  281.       { next 364 add neg }
  282.       { next 620 add neg }
  283.       { next 876 add neg }
  284.       % 255 is deliberately omitted and will cause a rangecheck
  285.     } exch get exec
  286.       } ifelse
  287.     } ifelse
  288.   } loop
  289. } def
  290. /tokenbuf 100 string def
  291. /tokenput {    % <index> <char> tokenput <index+1>
  292.   tokenbuf 2 index 3 -1 roll put 1 add
  293. } def
  294. /tokenrealarray [
  295.  (0123456789.E) { } forall
  296.  [(E) 0 get /tokenput cvx (-) 0 get] cvx
  297.  null        % will give an error
  298.  (-) 0 get
  299.  { exit }
  300. ] readonly def
  301. /tokenreal {    % - tokenreal <float>
  302.   0 {
  303.     next exch 1 index -4 bitshift tokenrealarray exch get exec tokenput
  304.     exch 15 and tokenrealarray exch get exec tokenput
  305.   } loop
  306.   tokenbuf 0 3 -1 roll getinterval cvr exch pop
  307. } def
  308. /Dict {        % <opsdict> Dict -
  309.   /opdict exch store {
  310.     mark tokens opdict exch .knownget { exec } if cleartomark
  311.   } loop cleartomark
  312. } def
  313. /idstring {    % <sid> idstring <string>
  314.   dup 391 lt { StandardStrings } { 391 sub strings } ifelse exch get
  315. } def
  316.  
  317. % ------ Top dictionary ------ %
  318.  
  319. /offput {    % <offset> <proc> offput -
  320.   currentdict exch aload length 1 add packedarray cvx
  321.   offsets 3 1 roll put
  322. } def
  323. /queueput {    % <font> <proc> queueput -
  324.   16#7fffffff offsets { pop .min } forall
  325.   pos sub nextstring
  326.   3 1 roll aload length 2 add packedarray cvx
  327.   [ queued aload pop counttomark 2 add -1 roll ]
  328.   /queued exch store
  329. } def
  330. /xxput {    % <value> <key> <dict> xxput -
  331.   3 1 roll exch put
  332. } def
  333. /putfi {    % <value> <key> putfi -
  334.   FontInfo xxput
  335. } def
  336. /xdef {        % <value> <key> xdef -
  337.   exch def
  338. } def
  339. /topdictops mark
  340.   12 { exit }
  341.   0 { idstring /version putfi }
  342.   1 { idstring /Notice putfi }
  343.   32 { idstring /Copyright putfi }
  344.   2 { idstring /FullName putfi }
  345.   3 { idstring /FamilyName putfi }
  346.   4 { idstring /Weight putfi }
  347.   33 { 0 ne /isFixedPitch putfi }
  348.   34 { /ItalicAngle putfi }
  349.   35 { /UnderlinePosition putfi }
  350.   36 { /UnderlineThickness putfi }
  351.   37 { /PaintType xdef }
  352.   38 { /CharstringType xdef }
  353.   39 { /FontMatrix xdef }
  354.   13 { /UniqueID xdef }
  355.   5 { counttomark array astore /FontBBox xdef }
  356.   40 { /StrokeWidth xdef }
  357.   14 { counttomark array astore /XUID xdef }
  358.   15 {
  359.     dup StandardCharsets length lt {
  360.       StandardCharsets exch get /charset xdef
  361.     } {
  362.       { queuecharset } offput
  363.     } ifelse
  364.   }
  365.   16 {
  366.     dup StandardEncodings length lt {
  367.       /Encoding xdef
  368.     } {
  369.       { queueEncoding } offput
  370.     } ifelse
  371.   }
  372.   17 { { readCharStrings } offput }
  373.   18 { exch /readPrivate cvx 2 packedarray offput }
  374. .dicttomark readonly def
  375.  
  376. /readCharStrings {    % <font> readCharStrings -
  377.   /CharStringArray Index put
  378. } def
  379.  
  380. % ------ Charsets and encodings ------ %
  381.  
  382. % Note: formats 1 and 2 can overflow the operand stack.
  383. % We'll fix this if it ever becomes necessary.
  384. /charsetformats [
  385. { [ 0 CharStringArray length 1 sub { sid } repeat ]
  386. }
  387. { [ 0 CharStringArray length 1 sub {
  388.     dup 0 eq { pop exit } if
  389.     sid card8 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  390.   } loop ]
  391. }
  392. { [ 0 CharStringArray length 1 sub {
  393.     dup 0 eq { pop exit } if
  394.     sid card16 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  395.   } loop ]
  396. }
  397. ] readonly def
  398. /queuecharset {        % <font> queuecharset -
  399.   { readcharset } queueput
  400. } def
  401. /readcharset {        % <data> <font> readcharset -
  402.   begin 0 () /SubFileDecode filter /f exch store
  403.   charsetformats next get exec /charset exch def end
  404. } def
  405.  
  406. /queueEncoding {    % <font> queueEncoding -
  407.   { readEncoding } queueput
  408. } def
  409. /readEncoding {        % <data> <font> readEncoding -
  410.     % NOT IMPLEMENTED YET
  411.   (****readEncoding: ) print 1 index ===
  412.   /Encoding StandardEncodings 0 get put pop
  413. } def
  414.  
  415. % ------ Private dictionary ------ %
  416.  
  417. /deltarray {        % -mark- <num1> ... deltarray <num1'> ...
  418.   0 counttomark 1 sub { counttomark -1 roll add dup } repeat pop
  419.   counttomark array astore
  420. } def
  421.  
  422. /privatedictops mark
  423.   12 { exit }
  424.   6 { deltarray /BlueValues xdef }
  425.   7 { deltarray /OtherBlues xdef }
  426.   8 { deltarray /FamilyBlues xdef }
  427.   9 { deltarray /FamilyOtherBlues xdef }
  428.   41 { /BlueScale xdef }
  429.   42 { /BlueShift xdef }
  430.   43 { /BlueFuzz xdef }
  431.   10 { 1 array astore /StdHW xdef }
  432.   11 { 1 array astore /StdVW xdef }
  433.   44 { deltarray /StemSnapH xdef }
  434.   45 { deltarray /StemSnapV xdef }
  435.   46 { 0 ne /ForceBold xdef }
  436.   47 { /ForceBoldThreshold xdef }
  437.   48 { /lenIV xdef }
  438.   49 { /LanguageGroup xdef }
  439.   50 { /ExpansionFactor xdef }
  440.   51 { /initialRandomSeed xdef }
  441.   19 { { readSubrs } offput }
  442.   20 { /defaultWidthX xdef }
  443.   21 { /nominalWidthX xdef }
  444.     % Multiple Master fonts only
  445.   59 { /NDV xdef }
  446.   60 { /CDV xdef }
  447.   61 { /lenBuildCharArray xdef }
  448. .dicttomark readonly def
  449.  
  450. /readPrivate {        % <font> <size> readPrivate -
  451.   exch 1 index f exch () /SubFileDecode filter /f exch def
  452.   /Private get begin //privatedictops Dict end
  453.   /f cff def advance
  454. } def
  455.  
  456. % ------ Main program ------ %
  457.  
  458. % We need to pass the file as a parameter for the sake of the PDF
  459. % interpreter.
  460. /StartData {        % <resname> <nbytes> StartData -
  461.   currentfile exch () /SubFileDecode filter ReadData
  462. } def
  463. /ReadData {        % <resname> <file> ReadData -
  464.  
  465.     % Initialize.
  466.  
  467.   30 dict begin
  468.   /cff exch def
  469.   /pos 0 def
  470.   /resname exch cvlit def
  471.  
  472.     % Read the header.
  473.  
  474.   /f cff def
  475.   /vmajor next def
  476.   /vminor next def
  477.   /hdrsize next def
  478.   /aoffsize next def
  479.  
  480.     % Read the Indexes.
  481.  
  482.   /names Index def
  483.   /topdicts Index def
  484.   /strings Index def
  485.   /gsubrs Index def
  486.  
  487.     % Read the top Dicts.
  488.  
  489.   /offsets 50 dict def
  490.   /queued [] def
  491.   /opdict null def        % reserve a slot
  492.   /fonts [ topdicts {
  493.     0 () /SubFileDecode filter /f exch def
  494.     40 dict begin
  495.         % Preload defaults that differ from PostScript defaults.
  496.       /FontType 1 def
  497.       /CharstringType 2 def
  498.       /FontMatrix [0.001 0 0 0.001 0 0] def
  499.       /charset StandardCharsets 0 get def
  500.       /Encoding 0 def
  501.       /FontInfo 10 dict
  502.     dup /UnderlinePosition -100 put
  503.     dup /UnderlineThickness 50 put
  504.       def
  505.       /Private 20 dict
  506.     gsubrs length 0 ne { dup /GlobalSubrs gsubrs put } if
  507.       def
  508.       //topdictops Dict
  509.     currentdict end
  510.   } forall ] def
  511.  
  512.     % Read other tables with queued offsets.
  513.  
  514.   { /f cff def
  515.     offsets pos 2 copy .knownget not { pop pop exit } if
  516.     3 1 roll undef exec
  517.   } loop
  518.   offsets length 0 ne {
  519.     (Error: missing tables at ) print [ offsets { pop } forall ] ==
  520.     (Current position is ) print pos ==
  521.     flush stop
  522.   } if
  523.  
  524.     % Process out-of-order tables.
  525.  
  526.   queued { exec } forall
  527.  
  528.     % Update Encoding and CharStrings.
  529.  
  530.   fonts {
  531.     begin
  532.         % Construct the real Encoding.
  533.         % The value of Encoding is either a number, for predefined
  534.         % encodings, or an array of GIDs.
  535.       /Encoding mark Encoding dup type /integertype eq {
  536.     StandardEncodings exch get { idstring } forall
  537.       } {
  538.     { charset exch get idstring } forall
  539.       } ifelse .packtomark def
  540.         % Construct the CharStrings.
  541.       /CharStrings charset length dict def
  542.       0 1 charset length 1 sub {
  543.     dup CharStringArray exch get
  544.     exch charset exch get idstring
  545.     CharStrings xxput
  546.       } for
  547.         % Remove unwanted entries.
  548.       currentdict /charset undef
  549.       currentdict /CharSetArray undef
  550.     end
  551.   } forall
  552.  
  553.     % Wrap up.
  554.  
  555.   resname mark 0 1 fonts length 1 sub {
  556.     dup names exch get exch fonts exch get
  557.     dup /FontName 3 index put
  558.     1 index exch definefont
  559.   } for .dicttomark
  560.   end        % temporary dict
  561.   end        % FontSetInit ProcSet
  562.   /FontSet defineresource pop
  563.  
  564. } bind def
  565.  
  566. % ---------------- Resource category definition ---------------- %
  567.  
  568. currentdict end readonly
  569.  
  570. languagelevel exch 2 .setlanguagelevel
  571.  
  572. /FontSet /Generic /Category findresource dup length dict .copydict
  573. /Category defineresource pop
  574.  
  575. /FontSetInit exch /ProcSet defineresource pop
  576.  
  577. .setlanguagelevel
  578.